﻿Public Class Wool
    Friend vCnd As String
    Friend vType As Integer


    Private Sub Wool_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        If vCnd = "Weak" Then
            PictureBox1.Image = My.Resources.GrayWool
            vType = 1
        ElseIf vCnd = "Normal" Then
            PictureBox1.Image = My.Resources.WhiteWool
            vType = 2
        End If
    End Sub

       
    Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
        If vType = 1 Then
            For Each i As Control In Me.ParentForm.Controls
                If i.Name = "GW" Then
                    i.Text += 1
                End If
            Next
        ElseIf vType = 2 Then
            For Each i As Control In Me.ParentForm.Controls
                If i.Name = "WW" Then
                    i.Text += 1
                End If
            Next
        End If
        Dispose()
    End Sub

    
End Class
